;; (PV_PhaseShift90 buffer)

;; Swap the real and imaginary components of every bin at `buffer' and
;; swap the of the imaginary components.

(define b (buffer-alloc 2048 1 #t))

(IFFT.ar (PV_PhaseShift90.kr (FFT.kr (buffer-id b) (WhiteNoise.ar 0.1))))

(buffer-free b)

